home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / dev / src / MiniStat.lha / MiniStat / Old / Stat02b.c < prev   
Encoding:
C/C++ Source or Header  |  2000-03-07  |  1.0 KB  |  65 lines
  1. #define CLEAR 12
  2. #include <stdio.h>
  3.  
  4.    int i,q,s,sr,max,min,disp,v[100],vr[99];
  5.    float m,mr;
  6.  
  7. main(){
  8.  
  9.     printf("\tStat v.0.2b ©2000 by Encelo\n");
  10.  
  11.     printf("How many decimal values do you want to insert?(Max 100): ");
  12.     scanf("%d",&q);
  13.     for (i=1;i<=q;i++)
  14.         {
  15.         printf("\nValue No.%d:",i);
  16.         scanf("%d",&v[i]);
  17.         }
  18.  
  19.     printf("Ok, you have inserted all the %d values, now I'm calculating...\n",q);
  20.     for (i=1;i<=q;i++)
  21.         {
  22.         s+=v[i];
  23.         }
  24.     m=(float)s/q;
  25.     printf("This is the mean between the %d values: %f\n",q,m);
  26.  
  27.     max=0;
  28.     for (i=1;i<=q;i++)
  29.         {
  30.         if (v[i]>max)
  31.             {
  32.                 max=v[i];
  33.             }
  34.         }
  35.     min=max;
  36.     for (i=1;i<=q;i++)
  37.         {
  38.         if (v[i]<min)
  39.             {
  40.                 min=v[i];
  41.             }
  42.         }
  43.     disp=max-min;
  44.     printf("Maximum value: %d\n",max);
  45.     printf("Minimum value: %d\n",min);
  46.     printf("The values dispersion is: %d\n",disp);
  47.  
  48.     for (i=1;i<=q-1;i++)
  49.         {
  50.         if (v[i]-v[i+1]>=0)
  51.             {
  52.             vr[i]=v[i]-v[i+1];
  53.             }
  54.         else
  55.             {
  56.             vr[i]=v[i+1]-v[i];
  57.             }
  58.         }
  59.     for (i=1;i<=q-1;i++)
  60.         {
  61.         sr+=vr[i];
  62.         }
  63.     mr=(float)sr/q;
  64.     printf("This is the mean between the %d rejectings: %f\n",q-1,mr);
  65. }